home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 94
/
Tiger_Disk_094_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
ende ii_83
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
740b
|
14 lines
1 s=54272:pokes+24,15:pokes+5,96:pokes+6,200:pokes+1,1:pokes+4,129:poke53265,80
10 printchr$(147):fora=2to18:pokes+5,9: pokes+6,11:pokes+11,129:pokes+12,9:
12 print" [160] [160] ";:pokes+13,11:pokes+8,1
14 print" [160][160][160][160][160][160] [160] [160] [160][160][160][160][160] [160][160][160][160][160][160] [160] ";:pokes+4,128:pokes+11,128
16 print" [160] [160] [160][160] [160] [160] [160] [160] [160] [160] ";
18 print" [160][160][160][160] [160] [160] [160] [160] [160] [160][160][160][160] [160] ";:pokes+4,49:pokes+11,205
20 print" [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";
22 print" [160] [160] [160][160] [160] [160] [160] ";
24 print" [160] [160][160][160][160][160][160] [160] [160] [160][160][160][160][160] [160][160][160][160][160][160] [160] [160] ";:
26 print" ";:pokes+4,0 :pokes+11,0
28 poke53280,a:poke53281,a+2:poke53284,a:poke53282,a+1:poke53283,a/2:next
31 print"[153]lukian":pokes+4,129:pokes+11,129:fort=1to300:next
33 pokes+4,128:pokes+11,128:sys2048